home *** CD-ROM | disk | FTP | other *** search
/ PC World 2004 July & August / PCWorld_2004-07-08_cd.bin / Software / vyzkuste / extreme / extrememm2.6b6sharefull.exe / {app} / scripts / [BARNESANDNOBLE.COM] import scene index only to Comments field @MQ 10-08-2003.txt < prev    next >
Encoding:
Text File  |  2003-08-17  |  7.0 KB  |  294 lines
  1. #MADEBY#=MQ
  2. #DATEBUILD#=10/8/2003
  3. #WEBSITE#=BARNES AND NOBLE - Video
  4. #NOTE#=Import Only Scene Index (DVD)
  5. #SCRIPTQUALITY#=1
  6. #SCRIPTGENERATION#=2
  7.  
  8. #WEBQUERY#=http://video.barnesandnoble.com/search/results.asp?quickSearchType=TTL&quickSearchText=#MOVIE#&FRM=0&userid=
  9.  
  10. #RIGHTPAGEFOUND#
  11. #PUT#=0#00#
  12. #PUT#=1#01#
  13.     //if right page found->skips createmovielist
  14.     #FINDLINE#=<b>Product Details:</b>#11# #ONERROR#=*OK*
  15.     #CONDITIONRIGHTPAGE# #00#<>#11#
  16. #ENDRIGHTPAGEFOUND#
  17.  
  18. #CREATEMOVIELIST#
  19. #STARTREADWEB#
  20.     //header text
  21.     #WRITETITLELIST#=     Titles Found
  22.     #WRITETITLELIST#=-------------------------------
  23.     #FINDLINE#=Sorry there are <b>0</b> videos available#11# #ONERROR#=*OK*
  24.     //no matches found->exit
  25.     #IF# #01#==#11#
  26.         #WRITETITLELIST#=     No Titles Found!
  27.         #GOTO#=EXIT-MOVIELIST
  28.     #ENDIF#
  29. #STARTREADWEB#
  30.     #REPEAT#
  31.         //find first match
  32.         #FINDLINE#=CLASS="itemTitleSearch"#11# #ONERROR#=*OK*
  33.         #IF# #00#==#11#
  34.             #GOTO#=EXIT-MOVIELIST
  35.         #ENDIF#
  36.  
  37.         //UPC code/start of...
  38.         #FIND#=&EAN=#02# #ONERROR#=*OK*
  39.         #COMPUTEVAR#=#02#=+4
  40.         #COMPUTECURSOR#=+4
  41.         //end of...
  42.         #FIND#=# #ONERROR#=*OK*
  43.         //take UPC code (item id for url)
  44.         #TAKEWORD#=#06#,#02#,#03#
  45.  
  46.         //take titlename /start of word
  47.         #FIND#=<b>#02# #ONERROR#=*OK*
  48.         #COMPUTEVAR#=#02#=+2
  49.         //end of word
  50.         #FIND#=</b>#03# #ONERROR#=*OK*
  51.         //take UPC and save it
  52.         #TAKEWORD#=#07#,#02#,#03#
  53.  
  54.         //take year if found
  55.         #FIND#=CLASS="genTextReg">#04# #ONERROR#=*OK*
  56.         #IF# #00#<>#04#
  57.             //start of..
  58.             #FIND#=">#02# #ONERROR#=*OK*
  59.             #COMPUTEVAR#=#02#=+1
  60.             //end of...
  61.             #FIND#=<#03# #ONERROR#=*OK*
  62.             //take year
  63.             #TAKEWORD#=#08#,#02#,#03#
  64.         #ENDIF#
  65.         //build url and display on title list window
  66.         #WRITETITLELIST#=http://video.barnesandnoble.com/search/product.asp?userid=&FRM=0&EAN=#06#    ---> #07# #08#
  67.  
  68.     //fail safe, theres already EXIT code inside repeat loop
  69.  
  70.  
  71.     #WHILE# #00#<>#11#
  72.  
  73.  
  74.  
  75. :EXIT-MOVIELIST
  76.  
  77.  
  78.  
  79. #ENDCREATEMOVIELIST#
  80.  
  81. //Scene Index import
  82. #COMMENTS#
  83. #PUT#=0#00#
  84. #STARTREADWEB#
  85.     #FINDLINE#=Scene Index<#12##ONERROR#=*STOP*
  86.     #FIND#=Scene Index<#12##ONERROR#=*STOP*
  87.     #FIND#=&EAN=#02##ONERROR#=*OK*
  88.     #COMPUTEVAR#=#02#=+4
  89.     #FIND#=&VIEW#03##ONERROR#=*OK*
  90.     #TAKEWORD#=#06#,#02#,#03#
  91.  
  92. #STRING#=#13#=http://video.barnesandnoble.com/search/product.asp?userid=&FRM=0&EAN=#06#&VIEW=SCN
  93.  
  94. #OPENNEWWEB#=#13#
  95. #STARTREADWEB#
  96.     #FINDLINE#=>Scene Index<#12##ONERROR#=*STOP*
  97.     //take whole line/start of..
  98.     #FIND#=="genTextReg">#02##ONERROR#=*OK*
  99.     #COMPUTEVAR#=#02#=+13
  100.     //end of...
  101.     #///FIND#=</table>#03##ONERROR#=*OK*
  102.  
  103.     //loop until end list found, save location and takeword
  104.     :REPEATFINDEND
  105.         //"temp" save cursor
  106.         #PUTCURSOR#=#03#
  107.         #FIND#=<br><br>#12##ONERROR#=*OK*
  108.         //fix cursor position before next loop(no infitive loops)
  109.         #COMPUTECURSOR#=+8
  110.         //until no more found
  111.         #IF# #00#==#12#
  112.             //fix cursor position to start of linebreak tags
  113.             #COMPUTEVAR#=#03#=-8
  114.             #GOTO#=CONTINUETAKECOMMENTS
  115.         #ENDIF#
  116.  
  117.         //continue find the end
  118.         #GOTO#=REPEATFINDEND
  119. :CONTINUETAKECOMMENTS
  120.     //take string
  121.     #TAKEWORD#=#06#,#02#,#03#
  122.     //clean
  123.     #CHECKVARIABLE#=#06#
  124.     #STARTSUBSTITUTETAGS#
  125.     #STARTDELETETAGS#
  126.     #CLEARTAGS#
  127. //header text
  128. #STRING#=#07#=Scene Index:#NEWLINE#
  129. #TAKECOMMENTS#=#07#
  130. //import indexes
  131. #TAKECOMMENTS#=#06#
  132. #ENDCOMMENTS#
  133.  
  134.  
  135. #DELETETAGS#
  136.     #DELETEWORD#=    
  137.     #DELETEWORD#=                                
  138.     #DELETEWORD#=                                    
  139.     #DELETEWORD#=         
  140.     #DELETEWORD#=        
  141.     #DELETEWORD#=       
  142.     #DELETEWORD#=      
  143.     #DELETEWORD#=     
  144.     #DELETEWORD#=    
  145.     #DELETEWORD#=   
  146.     #DELETEWORD#=  
  147.     #DELETEWORD#=
  148.     #DELETEWORD#=    
  149.     #DELETEWORD#=
  150.     #DELETEWORD#=<tr>
  151.     #DELETEWORD#=</tr>
  152.     #DELETEWORD#=<td>
  153.     #DELETEWORD#=</td>
  154.     #DELETEWORD#= 
  155.     #DELETEWORD#=</P>
  156.     #DELETEWORD#=</BLOCKQUOTE>
  157.     #DELETEWORD#=</font>
  158.     #DELETEWORD#=</table>
  159.     #DELETEWORD#=</b>
  160.     #DELETEWORD#= 
  161.     #DELETEWORD#=</a>
  162.     #DELETEWORD#=</br>
  163.     #DELETEWORD#=</BR>
  164.     #DELETEWORD#=</P>
  165.     #DELETEWORD#=</p>
  166.     #DELETEWORD#=</I>
  167.     #DELETEWORD#=</i>
  168.     #DELETEWORD#=</b>
  169.     #DELETEWORD#=<b>
  170.     #DELETEWORD#=<I>
  171.     #DELETEWORD#=<i>
  172.     #DELETEWORD#=</B>
  173.     #DELETEWORD#=<B>
  174.     #DELETEWORD#=</BLOCKQUOTE>
  175.     #DELETEWORD#=</blockquote>
  176. #ENDDELETETAGS#
  177.  
  178. #SUBSTITUTETAGS#
  179.     //last line , now newline fix.
  180.     #SUBSTITUTEWORD#=<br><br> <i>=
  181.     //fixes
  182.     #SUBSTITUTEWORD#=<br><br>=#NEWLINE#
  183.     #SUBSTITUTEWORD#=<BR><BR>=#NEWLINE#
  184.     #SUBSTITUTEWORD#=<br>=#NEWLINE#
  185.     #SUBSTITUTEWORD#=<BR>=#NEWLINE#
  186.  
  187.     #SUBSTITUTEWORD#=</font>=
  188.     #SUBSTITUTEWORD#= = 
  189.     #SUBSTITUTEWORD#=í=í
  190.     #SUBSTITUTEWORD#=ó=ó
  191.  
  192.     #SUBSTITUTEWORD#=ú=ú
  193.     #SUBSTITUTEWORD#=ñ=ñ
  194.     #SUBSTITUTEWORD#=Ñ=Ñ
  195.     #SUBSTITUTEWORD#=ª=ª
  196.     #SUBSTITUTEWORD#=º=º
  197.     #SUBSTITUTEWORD#=¿=¿
  198.     #SUBSTITUTEWORD#=⌐=⌐
  199.     #SUBSTITUTEWORD#=¬=¬
  200.     #SUBSTITUTEWORD#=½=½
  201.     #SUBSTITUTEWORD#=¼=¼
  202.     #SUBSTITUTEWORD#=­=¡
  203.     #SUBSTITUTEWORD#=«=«
  204.     #SUBSTITUTEWORD#=»=»
  205.     #SUBSTITUTEWORD#=░=░
  206.     #SUBSTITUTEWORD#=▒=▒
  207.     #SUBSTITUTEWORD#=▓=▓
  208.     #SUBSTITUTEWORD#=│=│
  209.     #SUBSTITUTEWORD#=┤=┤
  210.     #SUBSTITUTEWORD#=╡=╡
  211.     #SUBSTITUTEWORD#=╢=╢
  212.     #SUBSTITUTEWORD#=╖=╖
  213.     #SUBSTITUTEWORD#=╕=╕
  214.     #SUBSTITUTEWORD#=╣=╣
  215.     #SUBSTITUTEWORD#=║=║
  216.     #SUBSTITUTEWORD#=╗=╗
  217.     #SUBSTITUTEWORD#=╝=╝
  218.     #SUBSTITUTEWORD#=╜=╜
  219.     #SUBSTITUTEWORD#=╛=╛
  220.     #SUBSTITUTEWORD#=┐=┐
  221.     #SUBSTITUTEWORD#=└=└
  222.     #SUBSTITUTEWORD#=┴=┴
  223.     #SUBSTITUTEWORD#=┬=┬
  224.     #SUBSTITUTEWORD#=├=├
  225.     #SUBSTITUTEWORD#=─=─
  226.     #SUBSTITUTEWORD#=┼=┼
  227.     #SUBSTITUTEWORD#=╞=╞
  228.     #SUBSTITUTEWORD#=╟=╟
  229.     #SUBSTITUTEWORD#=╚=╚
  230.     #SUBSTITUTEWORD#=╔=╔
  231.     #SUBSTITUTEWORD#=╩=╩
  232.     #SUBSTITUTEWORD#=╦=╦
  233.     #SUBSTITUTEWORD#=╠=╠
  234.     #SUBSTITUTEWORD#=═=═
  235.     #SUBSTITUTEWORD#=╬=╬
  236.     #SUBSTITUTEWORD#=╧=╧
  237.     #SUBSTITUTEWORD#=╨=╨
  238.     #SUBSTITUTEWORD#=╤=╤
  239.     #SUBSTITUTEWORD#=╥=╥
  240.     #SUBSTITUTEWORD#=╙=╙
  241.     #SUBSTITUTEWORD#=╘=╘
  242.     #SUBSTITUTEWORD#=╒=╒
  243.     #SUBSTITUTEWORD#=╓=╓
  244.     #SUBSTITUTEWORD#=╫=╫
  245.     #SUBSTITUTEWORD#=╪=╪
  246.     #SUBSTITUTEWORD#=┘=┘
  247.     #SUBSTITUTEWORD#=┌=┌
  248.     #SUBSTITUTEWORD#=█=█
  249.     #SUBSTITUTEWORD#=▄=▄
  250.     #SUBSTITUTEWORD#=▌=▌
  251.     #SUBSTITUTEWORD#=▐=▐
  252.      #SUBSTITUTEWORD#=▀=▀
  253.     #SUBSTITUTEWORD#=α=α
  254.     #SUBSTITUTEWORD#=ß=ß
  255.     #SUBSTITUTEWORD#=Γ=Γ
  256.     #SUBSTITUTEWORD#=π=π
  257.     #SUBSTITUTEWORD#=Σ=Σ
  258.     #SUBSTITUTEWORD#=σ=σ
  259.     #SUBSTITUTEWORD#=µ=µ
  260.     #SUBSTITUTEWORD#=τ=τ
  261.     #SUBSTITUTEWORD#=Φ=Φ
  262.     #SUBSTITUTEWORD#=Θ=Θ
  263.  
  264.     #SUBSTITUTEWORD#=Ω=Ω
  265.     #SUBSTITUTEWORD#=δ=δ
  266.     #SUBSTITUTEWORD#=∞=∞
  267.     #SUBSTITUTEWORD#=φ=φ
  268.     #SUBSTITUTEWORD#=ε=ε
  269.     #SUBSTITUTEWORD#=∩=∩
  270.     #SUBSTITUTEWORD#=≡=≡
  271.     #SUBSTITUTEWORD#=±=±
  272.     #SUBSTITUTEWORD#=≥=≥
  273.     #SUBSTITUTEWORD#=≤=≤
  274.     #SUBSTITUTEWORD#=⌠=⌠
  275.     #SUBSTITUTEWORD#=⌡=⌡
  276.     #SUBSTITUTEWORD#=÷=÷
  277.     #SUBSTITUTEWORD#=≈=≈
  278.     #SUBSTITUTEWORD#=°=°
  279.     #SUBSTITUTEWORD#=∙=∙
  280.     #SUBSTITUTEWORD#=·=·
  281.     #SUBSTITUTEWORD#=√=√
  282.     #SUBSTITUTEWORD#=ⁿ=ⁿ
  283.     #SUBSTITUTEWORD#=²=²
  284.     #SUBSTITUTEWORD#=■=■
  285.     #SUBSTITUTEWORD#= = 
  286. #ENDSUBSTITUTETAGS#
  287.  
  288.  
  289.  
  290.  
  291.  
  292.  
  293.  
  294.